home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d15 / maximo_1.arc / TXT.ARC / WW.TXT < prev    next >
Text File  |  1991-08-20  |  2KB  |  136 lines
  1. ;------------------------------------------------------
  2. ;
  3. ;  WORLDWIDE -- globe animation (c) 1990 Copyright Chris Butler
  4. ;            -- revised  1/15/91 for rev 1.02
  5. ;            
  6. ;        pic buffer 4 temp use
  7. ;        clp buffer 1 temp use
  8.  
  9. set allpsdi off
  10. goto top
  11. all:
  12. set allpsdi on
  13. top:
  14.  
  15.  
  16. video m
  17. set numboffices 25    ;
  18.  
  19. pload worldmap 4 
  20. pfade 5 4
  21. palette 4
  22. pfree 4
  23.  
  24. databegin offices    ; choose OFFICES datablock
  25.  
  26. ; show all offices
  27. ; display l to r in longitudinal order
  28.  
  29. mark @numboffices        
  30. set x  @
  31. set y  @ 
  32.  
  33. color 12
  34. rect @x,@y @x+4,@y+4
  35. color 0
  36. line @x,@y @x+4,@y+4
  37. line @x,@y+4 @x+4,@y
  38. noise 100 200 10
  39. waitkey 20
  40. loop  
  41. waitkey 150
  42.  
  43. ; now roll on "where u need us to be" clipping
  44.  
  45. cload whereund.clp 1 1 0
  46. cfade 1 40,30  1 200 50
  47. cfree 1
  48.  
  49. ; FOLLOWING LINES ADDED TO REV 1.02 TO GET UNDER 1.2M LIMIT
  50. WAITKEY 300
  51. GOTO WWLABELX
  52.  
  53. ; show us + intl offices
  54.  
  55. pload worldgr4.pic 1 
  56. palette 1
  57. pfade 9 1 400
  58. pfree 1
  59. waitkey 100
  60.  
  61. cload usoffice.clp 1 1 0
  62. cfade 9 104,98 1 150 
  63. note 100 10 10
  64. waitkey
  65.  
  66. cload intla.clp 1 1 0
  67. cfade 9 56,40 1 150
  68. note 100 10 10
  69. waitkey
  70.  
  71. cload intlb.clp  1 1 0
  72. cfade 9 64,34 1 150
  73. note 100 10 10
  74. waitkey
  75.  
  76. cload intlc.clp  1 1 0
  77. cfade 9 56,27 1 150
  78. cfree 1
  79. note 100 10 10
  80. waitkey
  81.  
  82. WWLABELX:
  83.  
  84. if @allpsdi==on
  85.   link clients.txt all
  86.  else 
  87.   link master.txt entry_5
  88. endif
  89.  
  90. ; SUBR WORLDWIDE  
  91. ;
  92. ; la ger bos thai? spain calgary?
  93. ; malaysia? seattle italy dallas london dc sinagapore?
  94. ; sf vienna? toronto? sydney? chicago hongkong? 
  95. ; delhi? denver switz nyc tokyo france melbourne?
  96. ;
  97. offices:
  98.  
  99. 83,280
  100. 85,263
  101. 90,258
  102. 98,298
  103. 109,267
  104. 124,254
  105. 138,268
  106. 149,289
  107. 157,260
  108. 162,266
  109. 169,273 
  110. 293,269
  111. 295,296
  112. 303,282
  113. 313,282
  114. 314,294
  115. 321,273
  116. 332,288
  117. 440,236
  118. 478,194
  119. 480,220
  120. 514,194
  121. 518,270
  122. 543,261
  123. 563,132
  124.  
  125.  
  126. dataend   
  127.  
  128. ; offices array ordered by longitude
  129. longorder:
  130. 8  14 1 6 21 10 18 16 12 23  3    5 11
  131. 25 22 2 9 15 20  7  4 17 13 19 24 26
  132. dataend
  133.  
  134. ; SUBR WORLDWIDE
  135. ---------------------------------------video m
  136.